(viper-toggle-key, viper-ESC-key): Use `mapc' rather than `mapcar'.

diff --git a/lisp/emulation/viper-keym.el b/lisp/emulation/viper-keym.el
index ac7231a3cacaa46a80ba11f658c18c3c2f9601a0..0e502720f5e7b3726c70d7d728630d8b0772ff05 100644 (file)
--- a/lisp/emulation/viper-keym.el
+++ b/lisp/emulation/viper-keym.el
@@ -170,7 +170,7 @@ Enter as a sexp.  Examples: \"\\C-z\", [(control ?z)]."
         (let ((old-value (if (boundp 'viper-toggle-key)
                              viper-toggle-key
                            [(control ?z)])))
-          (mapcar
+          (mapc
            (lambda (buf)
              (save-excursion
                (set-buffer buf)
@@ -210,7 +210,7 @@ If running in a terminal, [(escape)] is not understood, so must use \"\\e\"."
         (let ((old-value (if (boundp 'viper-ESC-key)
                              viper-ESC-key
                            [(escape)])))
-          (mapcar
+          (mapc
            (lambda (buf)
              (save-excursion
                (set-buffer buf)